subroutine update_event_profile(lunit)
  use event_param
  use table_param,only:event_profile
  use table_param,only:n_event_profile
  use label_data_param,only:obj_type
  use react_data_param,only:react_type
  use sink_data_param,only:sink_type
  use geom_data_param,only:geom_obj
  implicit none

  integer,intent(in) :: lunit

  integer :: i,id,rank

  do i=1,n_event_profile
     select case(event_profile(i)%event_type)
     case(diff_event)
        id=event_profile(i)%index
        event_profile(i)%rate_const=&
             obj_type(id)%diff_const_rate
     case(diss_event)
        id=event_profile(i)%index
        rank=event_profile(i)%sqnc
        event_profile(i)%rate_const=&
             obj_type(id)%diss_const_rate(rank)
     case(rctn_event)
        id=event_profile(i)%index
        rank=event_profile(i)%sqnc
        event_profile(i)%rate_const=&
             react_type(id)%react_const_rate(rank)
     case(extn_event)
        ! Unaffected by temperature
     case(srce_event)
        id=event_profile(i)%index
        rank=event_profile(i)%sqnc
        event_profile(i)%rate_const=&
             geom_obj(id)%diss_const_rate(rank)
     case(sink_event)
        id=event_profile(i)%index
        rank=event_profile(i)%sqnc
        event_profile(i)%rate_const=&
             sink_type(id)%react_const_rate(rank)
     end select
  end do

  return

end subroutine update_event_profile
